home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 71.zip
/
BS1 part 71
/
AmosPro2.0_d5.adf
/
Extensions
/
|wequ.s
< prev
next >
Wrap
Text File
|
1992-09-28
|
6KB
|
319 lines
*********************************************************************
* EQUATES GRAPHIC FUNCTIONS AMOS
*********************************************************************
RwReset MACRO
Count SET 0
ENDM
Rl MACRO
Count SET Count-4*(\2)
T_\1 equ Count
ENDM
Rw MACRO
Count SET Count-2*(\2)
T_\1 equ Count
ENDM
Rb MACRO
Count SET Count-(\2)
T_\1 equ Count
ENDM
GfxPc MACRO
movem.l d0-d7/a0-a6,-(sp)
move.l GfxBase(pc),a6
jsr \1(a6)
movem.l (sp)+,d0-d7/a0-a6
ENDM
***************************************************************
RwReset
***************************************************************
* VECTEURS
***************************************************************
Rl SyVect,1
Rl EcVect,1
Rl WiVect,1
***************************************************************
* ADRESSES AMOS / COMPILER
***************************************************************
Rl JError,1
Rl CompJmp,1
Rw AMOState,1
Rw Pour_Plus_Tard,1
***************************************************************
* Gestions AMOS Multiples
***************************************************************
Rl MyTask,1
Rw Inhibit,1
Rw OldDma,1
***************************************************************
* FENETRES
***************************************************************
* Jeu de caracteres par defaut
Rl JeuDefo,1
* Fonction REPETER
WiRepL equ 80
Rw WiRep,1
Rl WiRepAd,2
Rb WiRepBuf,WiRepL
* Fonction ENCADRER
Rw WiEncDX,1
Rw WiEncDY,1
***************************************************************
* INTER VBL
***************************************************************
Rl VblCount,1
Rl VblTimer,1
Rw EveCpt,1
***************************************************************
* FLAG AMOS/WORKBENCH
***************************************************************
Rw AMOSHere,1
Rw NoFlip,1
Rw DevHere,1
Rw DiscIn,1
***************************************************************
* GESTION ECRANS
***************************************************************
*************** Variables gestion
EcMax: equ 12
Rw DefWX,1
Rw DefWY,1
Rw DefWX2,1
Rw DefWY2,1
Rl EcCourant,1
Rw EcFond,1
Rw EcYAct,1
Rw EcYMax,1
Rw Actualise,1
Rl ChipBuf,1
*************** Buffer de calculs des ecrans
Rw EcBuf,128
*************** Table des NUMEROS ---> ADRESSES
Rl EcAdr,EcMax
*************** Table de priorite
Rl EcPri,EcMax+1
*************** FLASHEUR
FlMax: equ 16
LFlash: equ 2+2+4+2+16*4+2
Rw NbFlash,1
Rb TFlash,LFlash*FlMax
*************** SHIFTER
LShift: equ 2+2+4+2+2+2
Rb TShift,LShift
*************** FADER
Rw FadeFlag,1
Rw FadeNb,1
Rw FadeCpt,1
Rw FadeVit,1
Rl FadePal,1
Rl FadeCop,1
Rb FadeCol,8*32
***************************************************************
* GESTION COPPER
***************************************************************
EcTCop equ 1024
Rl EcCop,1
Rw Cop255,1
Rl CopLogic,1
Rl CopPhysic,1
Rw CopON,1
Rl CopPos,1
Rl CopLong,1
* Rainbows
NbRain equ 4
RsReset
RnDY rs.w 1
RnFY rs.w 1
RnTY rs.w 1
RnBase rs.w 1
RnColor rs.w 1
RnLong rs.w 1
RnBuf rs.l 1
RnAct rs.w 1
RnX rs.w 1
RnY rs.w 1
RnI rs.w 1
RainLong rs.w 1
Rb RainTable,RainLong*NbRain
Rw RainBow,1
Rw OldRain,1
* Marques copper liste
CopL1: equ 16*4*2
CopL2: equ 16*4
CopML: equ (EcMax*CopL1)+10*CopL2
Rb CopMark,CopML+4
* Liste screen swaps
SwapL: equ 32
Rl SwapList,SwapL*8+4
* Interlaced!
Rw InterInter,1
Rw InterBit,1
Rl InterList,EcMax*2
***************************************************************
* SPRITES HARD
***************************************************************
HsNb equ 64
* Limites souris
Rw MouYMax,1
Rw MouXMax,1
Rw MouYMin,1
Rw MouXMin,1
* Gestion souris
Rw MouYOld,1
Rw MouXOld,1
Rw MouHotY,1
Rw MouHotX,1
Rw MouseY,1
Rw MouseX,1
Rw MouseDY,1
Rw MouseDX,1
Rw YMouse,1
Rw XMouse,1
Rw OldMk,1
Rw MouShow,1
Rw MouSpr,1
Rw OMouShow,1
Rw OMouSpr,1
Rl MouBank,1
Rl MouDes,1
Rw MouTy,1
Rl SprBank,1
Rl HsTBuf,1
Rl HsBuffer,1
Rl HsLogic,1
Rl HsPhysic,1
Rl HsInter,1
Rl HsChange,1
Rl HsTable,1
Rw HsPMax,1
Rw HsTCol,1
Rw HsNLine,1
Rl HsPosition,2*8+1
* Actualisation sprites
HsYAct: equ 4
HsPAct: equ 6
Rw HsTAct,4*HsNb
* Structure SPrites
HsPrev: equ 0
HsNext: equ 2
HsX: equ 4
HsY: equ 6
HsYr: equ 8
HsLien: equ 10
HsImage: equ 12
HsControl: equ 16
HsLong: equ 20
Rb SpBase,HsLong+4
***************************************************************
* BOBS
***************************************************************
Rw BbMax,1
Rl BbDeb,1
Rl BbPrio,1
Rl BbPrio2,1
Rl Priorite,1
Rw PriRev,1
* Rb TRetour,256
***************************************************************
* AMAL!
***************************************************************
Rl AmDeb,1
Rl AmFreeze,1
Rl AmChaine,1
Rl AmBank,1
Rw AmRegs,26
Rw SyncOff,1
Rl AMALSp,1
Rw AmSeed,1
***************************************************************
* COLLISIONS
***************************************************************
Rl TColl,8
***************************************************************
* BLOCS
***************************************************************
Rl AdCBlocs,1
Rl AdBlocs,1
***************************************************************
* SYSTEME
***************************************************************
Rl GPile,1
Rl IntBase,1
Rl IntScreen,1
Rl GfxBase,1
Rl LayBase,1
Rl FntBase,1
Rl ScreenAdr,1
Rl WindowAdr,1
Rl Layer,1
Rl BitMap,1
Rl RastPort,1
Rl ClipRect,1
Rl FontInfos,1
Rw FontILong,1
Rw PaPeek,1
Rl SaveZo,1
Rw SaveNZo,1
* Sauvegarde du BitMap
Rb SBitMap,40
* Sauvegarde de la fonte systeme
Rb SFonte,14+4
* Interrupt VBL
Lis equ $16
Lio equ $30
Lmsg equ $20
Rb VBL_Is,Lis
* Interrupt clavier
Rb IoDevice,Lio+Lmsg+8
Rb Interrupt,Lis
* Buffer clavier
ClLong equ 32*3
FFkLong equ 24
Rl ClAsc,1
Rw ClFlag,1
Rw ClQueue,1
Rw ClTete,1
Rb ClShift,4
Rb ClTable,12
Rb ClBuffer,ClLong
Rl ClLast,1
Rb TFF2,10*FFkLong
Rb TFF1,10*FFkLong
*************** Longueur de la structure W.S
Rb L_Trp,4
L_Trappe equ -Count
***********************************************************